一道VB题``帮忙看看错在哪里

Private Sub Command1_Click()
Dim I As Integer, S As String, Flg As Boolean
For I = 2 To 10
Flg = False
Call Sub1(I, S, Flg)
If Flg Then
Text1 = Text1 & S & vbCrLf
End If
Next I
End Sub

Private Sub Sub1(K As Integer, S As String, F As Boolean)
Dim I As Integer, Sum1 As Integer, Sum2 As Integer
Dim N As Integer, Start As Integer
Do
Start = Start + 1
N = Start
S = N: Sum1 = N
For I = 1 To K - 1

N = N + 1
Sum1 = Sum1 + N
S = S & "+" & N
Next I
N = N + 1
S = S & "=" & N
Sum2 = N
For I = 1 To K - 2
N = N + 1
Sum2 = Sum2 + N
S = S & "+" & N
Next I
N = N + 1
If Sum1 = Sum2 Then
F = True
End If
While Sum1 <>

VB程序,帮忙看看错在哪里? 帮忙看看错在哪里.NET 关于vb编程！帮我看看错在哪里！！急！！！ 修改病句，大家帮忙看看错在哪里？ C语言高手帮忙看看错在哪里! 简单c语言题，看看错在哪里 C程序帮忙看看错在那？ 找错误：看看错在哪里？ 求救~~~~asp建购物车,看看错在哪里?? 帮忙一道VB题